home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / QWIKNOTES.cpt / QwikNotes / background_2731.txt < prev    next >
Text File  |  1987-11-01  |  8KB  |  368 lines

  1. -- background: 2731 from stack: in
  2. -- bmap block id: 8079
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Bkg Notes
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8000
  11. -- rect: left=380 top=20 right=65 bottom=427
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 20098 / 20098
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   go to card id 5341 of stack "Home"
  23. end mouseUp
  24.  
  25.  
  26.  
  27.  
  28. -- part 3 (field)
  29. -- low flags: 00
  30. -- high flags: 4007
  31. -- rect: left=37 top=86 right=285 bottom=496
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 3
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 18
  39. -- part name: Notes
  40.  
  41.  
  42. -- part 4 (button)
  43. -- low flags: 00
  44. -- high flags: 8000
  45. -- rect: left=441 top=20 right=65 bottom=510
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 2478 / 2478
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Qwik About...
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual effect barn door open
  57.   go to card id 3252
  58. end mouseUp
  59.  
  60.  
  61. -- part 5 (button)
  62. -- low flags: 00
  63. -- high flags: 8000
  64. -- rect: left=141 top=20 right=64 bottom=187
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 11645 / 11645
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Address
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   get the selection
  76.   visual effect zoom open
  77.   go to "Address"
  78.   if it is not empty then find it
  79. end mouseUp
  80.  
  81.  
  82.  
  83. -- part 6 (button)
  84. -- low flags: 00
  85. -- high flags: 8000
  86. -- rect: left=320 top=20 right=65 bottom=366
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 22855 / 22855
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Yearly
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   get the seconds
  98.   convert it to dateItems
  99.   put ((item 1 of it) - 1987) *2 into whichSix
  100.   if item 2 of it > 6 then add 1 to whichSix
  101.   visual effect zoom open
  102.   if whichSix < 1 then go card 1 of stack "DateBook"
  103.   else if whichSix > 5 then go card 5 of stack "DateBook"
  104.   else
  105.     go to card whichSix of stack "DateBook"
  106.     send "bracketWeek" && the seconds to this card
  107.   end if
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 8 (button)
  113. -- low flags: 00
  114. -- high flags: 8000
  115. -- rect: left=261 top=20 right=65 bottom=305
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 21209 / 21209
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Daily
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   set lockScreen to true
  127.   go stack "DateBook"
  128.   goWeekly the seconds
  129.   set lockScreen to false
  130. end mouseUp
  131.  
  132.  
  133.  
  134. -- part 9 (button)
  135. -- low flags: 00
  136. -- high flags: 8000
  137. -- rect: left=203 top=20 right=65 bottom=245
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 20965 / 20965
  140. -- text alignment: 1
  141. -- font id: 0
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: To Do
  146. ----- HyperTalk script -----
  147. on mouseUp
  148.   go to card "First Do" of "Datebook"
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 10 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=469 top=284 right=307 bottom=498
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 1013 / 1013
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Next
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   visual effect wipe left
  168.   go to next card
  169. end mouseUp
  170.  
  171.  
  172. -- part 11 (button)
  173. -- low flags: 00
  174. -- high flags: 0000
  175. -- rect: left=442 top=284 right=307 bottom=470
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 1014 / 1014
  178. -- text alignment: 1
  179. -- font id: 0
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: Prev
  184. ----- HyperTalk script -----
  185. on mouseUp
  186.   visual effect wipe right
  187.   go to previous card
  188. end mouseUp
  189.  
  190.  
  191. -- part 14 (button)
  192. -- low flags: 00
  193. -- high flags: 8000
  194. -- rect: left=185 top=283 right=328 bottom=235
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 3877 / 3877
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: New Note
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   set the cursor to 4
  206.   DoMenu New Card
  207.   wait 30
  208.   put the abbreviated date into field "Date"
  209.   put the time into field "Time"
  210.   set the cursor to 1
  211.   tabKey
  212. end mouseUp
  213.  
  214.  
  215.  
  216. -- part 15 (button)
  217. -- low flags: 00
  218. -- high flags: 8000
  219. -- rect: left=299 top=283 right=328 bottom=356
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 27637 / 27637
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: Delete Note
  228. ----- HyperTalk script -----
  229. on mouseUp
  230.   beep
  231.   answer "Delete this card?" with "Cancel" or "Delete"
  232.   if it = "Cancel" then exit mouseUp
  233.   set the cursor to 4
  234.   DoMenu Delete Card
  235.   visual effect venetian blinds
  236.   go to previous card
  237.   set the cursor to 1
  238. end mouseUp
  239.  
  240.  
  241.  
  242. -- part 16 (field)
  243. -- low flags: 01
  244. -- high flags: 0001
  245. -- rect: left=300 top=70 right=86 bottom=430
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 3
  250. -- text size: 12
  251. -- style flags: 8448
  252. -- line height: 16
  253. -- part name: Date
  254.  
  255.  
  256. -- part 17 (field)
  257. -- low flags: 01
  258. -- high flags: 0001
  259. -- rect: left=429 top=70 right=86 bottom=497
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 65535
  263. -- font id: 3
  264. -- text size: 12
  265. -- style flags: 8448
  266. -- line height: 16
  267. -- part name: Time
  268.  
  269.  
  270. -- part 26 (button)
  271. -- low flags: 00
  272. -- high flags: 8000
  273. -- rect: left=78 top=20 right=64 bottom=124
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 5619 / 5619
  276. -- text alignment: 1
  277. -- font id: 0
  278. -- text size: 12
  279. -- style flags: 0
  280. -- line height: 16
  281. -- part name: Menubar
  282. ----- HyperTalk script -----
  283. on mouseUp
  284.   show menubar
  285. end mouseUp
  286.  
  287.  
  288.  
  289. -- part 27 (button)
  290. -- low flags: 00
  291. -- high flags: 8000
  292. -- rect: left=6 top=20 right=65 bottom=61
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 10042 / 10042
  295. -- text alignment: 1
  296. -- font id: 0
  297. -- text size: 12
  298. -- style flags: 0
  299. -- line height: 16
  300. -- part name: QwikNotes
  301. ----- HyperTalk script -----
  302. on mouseUp
  303.   visual effect zoom open
  304.   go to stack "QwikNotes"
  305. end mouseUp
  306.  
  307.  
  308.  
  309. -- part 24 (button)
  310. -- low flags: 00
  311. -- high flags: 8000
  312. -- rect: left=241 top=283 right=328 bottom=293
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 24575 / 24575
  315. -- text alignment: 1
  316. -- font id: 0
  317. -- text size: 12
  318. -- style flags: 0
  319. -- line height: 16
  320. -- part name: Print Note
  321. ----- HyperTalk script -----
  322. on mouseUp
  323.   set the cursor to 4
  324.   DoMenu Print Card
  325.   visual effect venetian blinds
  326.   set the cursor to 1
  327. end mouseUp
  328.  
  329.  
  330.  
  331. -- part 28 (button)
  332. -- low flags: 00
  333. -- high flags: 0000
  334. -- rect: left=469 top=306 right=329 bottom=497
  335. -- title width / last selected line: 0
  336. -- icon id / first selected line: 7540 / 7540
  337. -- text alignment: 1
  338. -- font id: 0
  339. -- text size: 12
  340. -- style flags: 0
  341. -- line height: 16
  342. -- part name: Return
  343. ----- HyperTalk script -----
  344. on mouseUp
  345.   visual effect iris close
  346.   pop card
  347. end mouseUp
  348.  
  349.  
  350.  
  351. -- part 29 (button)
  352. -- low flags: 00
  353. -- high flags: 8000
  354. -- rect: left=362 top=283 right=328 bottom=413
  355. -- title width / last selected line: 0
  356. -- icon id / first selected line: 11134 / 11134
  357. -- text alignment: 1
  358. -- font id: 0
  359. -- text size: 12
  360. -- style flags: 0
  361. -- line height: 16
  362. -- part name: Find Note
  363. ----- HyperTalk script -----
  364. on mouseUp
  365.   doMenu "Find..."
  366. end mouseUp
  367.  
  368.